Attribute VB_Name = "Mod_Procesos"
Dim Rs_Datos As New ADODB.Recordset

Public Sub Guarda_HojaConsumo()
Dim i As Integer, Fila As Integer
If FrmProcesos.StPagina.CurrTab = 0 Then
    Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Del_HojaCalculo", gbCodEmpresa, gbAno, gbMes, FrmProcesos.LblHCORden, Trim$(FabcProduccion.LblTipoL))
    Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_CabHojaCalculo", gbCodEmpresa, gbAno, gbMes, FrmProcesos.LblHCORden, Trim$(FabcProduccion.LblTipoL), Format(Now, "dd/mm/yyyy"), Trim$(FrmProcesos.LblHCProducto), Trim$(FrmProcesos.LblHCMedida), CDbl(FrmProcesos.LblHCCantidad), Trim$(TxtObservacionesH))
    With FrmProcesos.LblHCVdDetalle
        For i = 1 To .Rows - 1
            .Row = i
            Fila = .Row
            Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_HojaCalculo", gbCodEmpresa, gbAno, gbMes, Trim$(FrmProcesos.LblHCORden), Trim$(FabcProduccion.LblTipoL), i, .TextMatrix(Fila, 0), .TextMatrix(Fila, 1), .TextMatrix(Fila, 2))
        Next i
    End With
End If
End Sub

Public Sub Cargar_Datos_HojaConsumo()
    Dim i As Integer
    Set Rs_Datos = New ADODB.Recordset
    Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_CabHojaCalculo", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
    If Rs_Datos.RecordCount > 0 Then
       Rs_Datos.MoveFirst
        With FrmProcesos
             'Datos de Hoja de Consumo
             .ChkLinea(0).Value = IIf(Trim$(Rs("In53Linea")) = "1", 1, 0)
             .ChkLinea(1).Value = IIf(Trim$(Rs("In53Linea")) = "2", 1, 0)
             .ChkLinea(2).Value = IIf(Trim$(Rs("In53Linea")) = "3", 1, 0)
             .MskHCFecha = Format$(Rs("In53Fecha"), "dd/mm/yyyy")
             .LblHCORden = Trim$(Rs("In53Orden"))
             .LblHCProducto = Trim$(Rs("In53Producto"))
             .LblHCMedida = Trim$(Rs("In53Medidas"))
             .LblHCCantidad = Format$(Rs("In53Cantidad"), "##,#0.00")
        End With
        'Cargar Datos del Detalle de Hoja de Consumo
        Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_HojaCalculo", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
        If Rs_Datos.RecordCount > 0 Then
           Rs_Datos.MoveFirst
           With FrmProcesos
            .LblHCVdDetalle.Rows = 2
            For i = 1 To Rs_Datos.RecordCount
                With .LblHCVdDetalle
                     .TextMatrix(i, 0) = Trim$(Rs_Datos("In51Materiales"))
                     .TextMatrix(i, 1) = Trim$(Rs_Datos("In51CantxUnida"))
                     .TextMatrix(i, 2) = Trim$(Rs_Datos("In51CantTotal"))
                     Rs_Datos.MoveNext
                     .Rows = .Rows + 1
                End With
                Next i
               .LblHCVdDetalle.Rows = .LblHCVdDetalle.Rows - 1
           End With
        End If
        With FrmProcesos
            .StPagina.TabEnabled(1) = IIf(.ChkLinea(0).Value, True, False)
            .StPagina.TabEnabled(2) = IIf(.ChkLinea(1).Value, True, False)
            .StPagina.TabEnabled(3) = IIf(.ChkLinea(2).Value, True, False)
            If .ChkLinea(0).Value Then
                Call CargarDatos_Linea1
            ElseIf .ChkLinea(1).Value Then
                Call CargarDatos_Linea2
            Else
                Call CargarDatos_Linea3
            End If
        End With
    Else
        With FabcProduccion
            'Hoja de Consumo
            FrmProcesos.ChkLinea(0).Value = IIf(Trim$(.LblTipoL) = "1", 1, 0)
            FrmProcesos.ChkLinea(1).Value = IIf(Trim$(.LblTipoL) = "2", 1, 0)
            FrmProcesos.ChkLinea(2).Value = IIf(Trim$(.LblTipoL) = "3", 1, 0)
            FrmProcesos.MskHCFecha = Format$(Now, "dd/mm/yyyy")
            FrmProcesos.LblHCORden = Trim$(.panNoDocumento)
            FrmProcesos.LblHCProducto = ""
            FrmProcesos.LblHCMedida = ""
            FrmProcesos.LblHCCantidad = Format(.tblDetalle.Columns(3), "##,#0.00")
            Call TraerInsumos(Trim$(.tblDetalle.Columns(0)))
        End With
        With FrmProcesos.StPagina
            .TabEnabled(1) = False
            .TabEnabled(2) = False
            .TabEnabled(3) = False
        End With
    End If
    
End Sub

Public Sub Guarda_DetalleLinea01()
On Error GoTo Mio
    Dim i As Integer, Fila As Integer
       Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Del_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), IIf(FrmProcesos.PgHoja.Tab = 0, 1, 2))
       If FrmProcesos.PgHoja.Tab = 0 Then
            Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Del_CabProcesoPF", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
            With FrmProcesos.TxtP1VsDetH1
                If .Rows > 1 Then
                     For i = 1 To .Rows - 1
                         .Row = i
                         Fila = .Row
                         If .TextMatrix(Fila, 1) <> "" Then
                            Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Ins_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FrmProcesos.TxtP1Orden), Trim$(FabcProduccion.LblTipoL), "Cproc", .TextMatrix(Fila, 0), .TextMatrix(Fila, 1), .TextMatrix(Fila, 2), .TextMatrix(Fila, 3), .TextMatrix(Fila, 4), .TextMatrix(Fila, 5), .TextMatrix(Fila, 6), Trim$(.TextMatrix(Fila, 7)), .TextMatrix(Fila, 8), .TextMatrix(Fila, 9), .TextMatrix(Fila, 10), .TextMatrix(Fila, 11), 0, 0, 0, 0, 0, 0, 0, "", 0, "", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "", 0, "", "", "", "", "", "", .TextMatrix(Fila, 12), IIf(FrmProcesos.PgHoja.Tab = 0, 1, 2), "")
                         End If
                     Next i
                End If
            End With
            With FrmProcesos.TxtP1VsContFinalH1
                If .Rows > 1 Then
                   For i = 1 To .Rows - 1
                       .Row = i
                       Fila = .Row
                       Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Ins_CabProcesoPF", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FrmProcesos.TxtP1Orden), Trim$(FabcProduccion.LblTipoL), "", Trim$(.TextMatrix(Fila, 0)), Trim$(.TextMatrix(Fila, 1)), Trim$(.TextMatrix(Fila, 2)), Trim$(.TextMatrix(Fila, 3)), Trim$(.TextMatrix(Fila, 4)), Trim$(.TextMatrix(Fila, 5)), "", "", Fila)
                    Next i
                End If
            End With
       Else
            With FrmProcesos.TxtP1H2VsDet
             If .Rows > 1 Then
                 For i = 1 To .Rows - 1
                     .Row = i
                     Fila = .Row
                     If .TextMatrix(Fila, 1) <> "" Then
                     Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Ins_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FrmProcesos.TxtP1Orden), Trim$(FabcProduccion.LblTipoL), "CProd", .TextMatrix(Fila, 0), .TextMatrix(Fila, 1), .TextMatrix(Fila, 2), .TextMatrix(Fila, 3), "", "", "", 0, 0, 0, 0, "", .TextMatrix(Fila, 4), .TextMatrix(Fila, 5), .TextMatrix(Fila, 6), .TextMatrix(Fila, 7), .TextMatrix(Fila, 8), 0, "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", IIf(FrmProcesos.PgHoja.Tab = 0, 1, 2), "")
                     End If
                 Next i
             End If
            End With
       End If
       Exit Sub
Mio:
    MsgBox Err.Description, vbInformation + vbCritical
    Resume Next
End Sub

Public Sub CargarDatos_Linea1()
On Error GoTo ControlError
    Dim Rs_Datos As New ADODB.Recordset
    Dim i As Integer
    Call PunteroRelojDeArena
    Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_CabProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
    If Rs_Datos.RecordCount > 0 Then
        Rs_Datos.MoveFirst
        With FrmProcesos
             'Datos de Hoja # 1
            .TxtP1Orden = Trim$(Rs("In50Orden"))
            .TxtP1Producto = Trim$(Rs("In50Producto"))
            .TxtP1Color = Trim$(Rs("In50Color"))
            .TxtP1Sello = Trim$(Rs("In50Sello"))
            .TxtP1Medida = Trim$(Rs("In50Unim"))
            .TxP1CodProveedor = Trim$(Rs("In50CodPro"))
            
            'Datos de Hoja # 2
            .TxtP1H2Cantidad = Trim$(Rs("In50Cant"))
            .TxtP1H2Medida = Trim$(Rs("In50Unim"))
            .TxtP1H2Color = Trim$(Rs("In50Color"))
            .TxtP1H2Especi = Trim$(Rs("In50EspeciTec"))
            .TxtP1H2Material = Trim$(Rs("In50Material"))
            .TxtP1H2Oden = Trim$(Rs("In50Orden"))
            .TxtP1H2Sello = Trim$(Rs("In50Sello"))
            
            'Detalle de Hoja # 1 Control de Proceso
            Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "1")
            If Rs_Datos.RecordCount > 0 Then
               Rs_Datos.MoveFirst
               .TxtP1VsDetH1.Rows = 2
               For i = 1 To Rs_Datos.RecordCount
                    With .TxtP1VsDetH1
                        .TextMatrix(i, 0) = Trim$(Rs_Datos("In52Fecha"))
                        .TextMatrix(i, 1) = Trim$(Rs_Datos("In52nroRollo"))
                        .TextMatrix(i, 2) = Trim$(Rs_Datos("In52Maqui"))
                        .TextMatrix(i, 3) = Trim$(Rs_Datos("In52Operario"))
                        .TextMatrix(i, 4) = Trim$(Rs_Datos("In52Hora"))
                        .TextMatrix(i, 5) = Trim$(Rs_Datos("In52Ancho"))
                        .TextMatrix(i, 6) = Trim$(Rs_Datos("In52Largo"))
                        .TextMatrix(i, 7) = Trim$(Rs_Datos("In52Espesor"))
                        .TextMatrix(i, 8) = Trim$(Rs_Datos("In52Velocidad"))
                        .TextMatrix(i, 9) = Trim$(Rs_Datos("In52TemSup"))
                        .TextMatrix(i, 10) = Trim$(Rs_Datos("In52TemInf"))
                        .TextMatrix(i, 11) = Trim$(Rs_Datos("In52RestSello"))
                        .TextMatrix(i, 12) = Trim$(Rs_Datos("In52VB"))
                        Rs_Datos.MoveNext
                        .Rows = .Rows + 1
                    End With
                Next i
                .TxtP1VsDetH1.Rows = .TxtP1VsDetH1.Rows - 1
            End If
            
            'Hoja #1 Control de Producto Final
            Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_CabProcesoPF", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
            If Rs_Datos.RecordCount > 0 Then
               Rs_Datos.MoveFirst
               .TxtP1VsContFinalH1.Rows = 2
               For i = 1 To Rs_Datos.RecordCount
                    With .TxtP1VsContFinalH1
                        .TextMatrix(i, 0) = Trim$(Rs_Datos("In51Parciales"))
                        .TextMatrix(i, 1) = Trim$(Rs_Datos("In51Columna1"))
                        .TextMatrix(i, 2) = Trim$(Rs_Datos("In51Columna2"))
                        .TextMatrix(i, 3) = Trim$(Rs_Datos("In51Columna3"))
                        .TextMatrix(i, 4) = Trim$(Rs_Datos("In51Columna4"))
                        .TextMatrix(i, 5) = Trim$(Rs_Datos("In51Total"))
                        Rs_Datos.MoveNext
                        .Rows = .Rows + 1
                    End With
                Next i
                .TxtP1VsContFinalH1.Rows = .TxtP1VsContFinalH1.Rows - 1
            End If
            
            'Detalle de Hoja # 2
            Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "2")
            If Rs_Datos.RecordCount > 0 Then
               Rs_Datos.MoveFirst
               .TxtP1H2VsDet.Rows = 2
               For i = 1 To Rs_Datos.RecordCount
                    With .TxtP1H2VsDet
                        .TextMatrix(i, 0) = Trim$(Rs_Datos("In52Fecha"))
                        .TextMatrix(i, 1) = Trim$(Rs_Datos("In52nroRollo"))
                        .TextMatrix(i, 2) = Trim$(Rs_Datos("In52Maqui"))
                        .TextMatrix(i, 3) = Trim$(Rs_Datos("In52Operario"))
                        .TextMatrix(i, 4) = Trim$(Rs_Datos("In52PesoxRollo"))
                        .TextMatrix(i, 5) = Trim$(Rs_Datos("In52CorteSello"))
                        .TextMatrix(i, 6) = Trim$(Rs_Datos("In52TiemxRolloIni"))
                        .TextMatrix(i, 7) = Trim$(Rs_Datos("In52TiemxRolloFin"))
                        .TextMatrix(i, 8) = Trim$(Rs_Datos("In52Total"))
                        Rs_Datos.MoveNext
                        .Rows = .Rows + 1
                    End With
                Next i
                .TxtP1H2VsDet.Rows = .TxtP1H2VsDet.Rows - 1
            End If
        End With
    Else
        With FabcProduccion
            'Hoja de Proceso
            FrmProcesos.TxtP1Orden = Trim$(.panNoDocumento)
            FrmProcesos.TxtP1Color = Trim$(.TxtColor)
            FrmProcesos.TxtP1Sello = ""
            FrmProcesos.TxP1CodProveedor = ""
            FrmProcesos.TxtP1Producto = Trim$(FrmProcesos.LblHCProducto)
            FrmProcesos.TxtP1Medida = Trim$(FrmProcesos.LblHCMedida)
            FrmProcesos.TxtP1H2Cantidad = Format(FrmProcesos.LblHCCantidad, "##.#0.00")
            FrmProcesos.TxtP1H2Medida = Trim$(FrmProcesos.LblHCMedida)
            FrmProcesos.TxtP1H2Color = Trim$(.TxtColor)
            FrmProcesos.TxtP1H2Especi = ""
            FrmProcesos.TxtP1H2Material = "" 'Trim$(FrmProcesos.LblHCVdDetalle.Columns(0))
        End With
    End If
    Call PunteroNormal
    Exit Sub
ControlError:
    MsgBox Err.Description, vbInformation + vbCritical
End Sub

Public Sub CargarDatos_Linea2()
On Error GoTo ControlError
    Dim Rs_Datos As New ADODB.Recordset
    Dim i As Integer
    Call PunteroRelojDeArena
    Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_CabProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
    If Rs_Datos.RecordCount > 0 Then
        Rs_Datos.MoveFirst
        With FrmProcesos
             'Datos de Hoja # 1
            .Linea2Page1_OrdenP = Trim$(Rs("In50Orden"))
            .Linea2Page1_Producto = Trim$(Rs("In50Producto"))
            .Linea2Page1_Color = Trim$(Rs("In50Color"))
            .Linea2Page1_MedidaUtil = Trim$(Rs("In50Unim"))
            .Linea2Page1_MedidaCorte = Trim$(Rs("In50MCorte"))
            .Linea2Page1_Proveedor = Trim$(Rs("In50CodPro"))
            .Linea2Page1_Cabo = Trim$(Rs("In50Cabo"))
            .Linea2Page1_Ojalillo = Trim$(Rs("In50Ojalillo"))
            .Linea2Page1_MBorde = Trim$(Rs("In50MBorde"))
            .Linea2Page1_GMaterial = Trim$(Rs("In50GramMat"))
            
            'Datos de Hoja # 2
            .Linea2Page2Canti = Trim$(Rs("In50Cant"))
            .Linea2Page2Medida = Trim$(Rs("In50Unim"))
            .Linea2Page2Color = Trim$(Rs("In50Color"))
            .Linea2Page2Espec = Trim$(Rs("In50EspeciTec"))
            .Linea2Page2Material = Trim$(Rs("In50Material"))
            .Linea2Page2Orden = Trim$(Rs("In50Orden"))
            .Linea2Page2Sello = Trim$(Rs("In50Sello"))
            
            'Detalle de Hoja # 1 Control de Proceso
            Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "1")
            If Rs_Datos.RecordCount > 0 Then
               Rs_Datos.MoveFirst
               .Linea2Page1Detalle.Rows = 2
               For i = 1 To Rs_Datos.RecordCount
                    With .Linea2Page1Detalle
                        .TextMatrix(i, 0) = Trim$(Rs_Datos("In52Fecha"))
                        .TextMatrix(i, 1) = Trim$(Rs_Datos("In52Hora"))
                        .TextMatrix(i, 2) = Trim$(Rs_Datos("In52Operario"))
                        .TextMatrix(i, 3) = Trim$(Rs_Datos("In52Ancho"))
                        .TextMatrix(i, 4) = Trim$(Rs_Datos("In52Largo"))
                        .TextMatrix(i, 5) = Trim$(Rs_Datos("In52Alto"))
                        .TextMatrix(i, 6) = Trim$(Rs_Datos("In52Temperatura"))
                        .TextMatrix(i, 7) = Trim$(Rs_Datos("In52Velocidad"))
                        .TextMatrix(i, 8) = Trim$(Rs_Datos("In52RestSello"))
                        .TextMatrix(i, 9) = Trim$(Rs_Datos("In52VB"))
                        Rs_Datos.MoveNext
                        .Rows = .Rows + 1
                    End With
                Next i
                .Linea2Page1Detalle.Rows = .Linea2Page1Detalle.Rows - 1
            End If
            
            'Hoja #1 Control de Producto Final
            Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_CabProcesoPF", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
            If Rs_Datos.RecordCount > 0 Then
               Rs_Datos.MoveFirst
               .Linea2Page1DetFinal.Rows = 2
               For i = 1 To Rs_Datos.RecordCount
                    With .Linea2Page1DetFinal
                        .TextMatrix(i, 0) = Trim$(Rs_Datos("In51Parciales"))
                        .TextMatrix(i, 1) = Trim$(Rs_Datos("In51Columna1"))
                        .TextMatrix(i, 2) = Trim$(Rs_Datos("In51Columna2"))
                        .TextMatrix(i, 3) = Trim$(Rs_Datos("In51Columna3"))
                        .TextMatrix(i, 4) = Trim$(Rs_Datos("In51Total"))
                        Rs_Datos.MoveNext
                        .Rows = .Rows + 1
                    End With
                Next i
                .Linea2Page1DetFinal.Rows = .Linea2Page1DetFinal.Rows - 1
            End If
            
            'Detalle de Hoja # 2
            Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "2")
            If Rs_Datos.RecordCount > 0 Then
               Rs_Datos.MoveFirst
               .Linea2Page2Detalle.Rows = 2
               For i = 1 To Rs_Datos.RecordCount
                    With .Linea2Page2Detalle
                        .TextMatrix(i, 0) = Trim$(Rs_Datos("In52Fecha"))
                        .TextMatrix(i, 1) = Trim$(Rs_Datos("In52nroRollo"))
                        .TextMatrix(i, 2) = Trim$(Rs_Datos("In52Operario"))
                        .TextMatrix(i, 3) = Trim$(Rs_Datos("In52Cortes"))
                        .TextMatrix(i, 4) = Trim$(Rs_Datos("In52Borde"))
                        .TextMatrix(i, 5) = Trim$(Rs_Datos("In52Cuerpo"))
                        .TextMatrix(i, 6) = Trim$(Rs_Datos("In52MantasAcab"))
                        .TextMatrix(i, 7) = Trim$(Rs_Datos("In52Ojalillo"))
                        .TextMatrix(i, 8) = Trim$(Rs_Datos("In52Soguilla"))
                        .TextMatrix(i, 9) = Trim$(Rs_Datos("In52ProducTerm"))
                        .TextMatrix(i, 10) = Trim$(Rs_Datos("In52Merma"))
                        Rs_Datos.MoveNext
                        .Rows = .Rows + 1
                    End With
                Next i
                .Linea2Page2Detalle.Rows = .Linea2Page2Detalle.Rows - 1
            End If
        End With
    Else
        With FabcProduccion
            'Hoja de Proceso
            FrmProcesos.Linea2Page1_OrdenP = Trim$(.panNoDocumento)
            FrmProcesos.Linea2Page1_Color = Trim$(.TxtColor)
            FrmProcesos.Linea2Page1_Proveedor = ""
            FrmProcesos.Linea2Page1_Producto = Trim$(FrmProcesos.LblHCProducto)
            FrmProcesos.Linea2Page1_MedidaUtil = Trim$(FrmProcesos.LblHCMedida)
            FrmProcesos.Linea2Page2Canti = Format(FrmProcesos.LblHCCantidad, "##.#0.00")
            FrmProcesos.Linea2Page2Medida = Trim$(FrmProcesos.LblHCMedida)
            FrmProcesos.Linea2Page2Color = Trim$(.TxtColor)
            FrmProcesos.Linea2Page2Espec = ""
            FrmProcesos.Linea2Page2Material = ""
        End With
    End If
    Call PunteroNormal
    Exit Sub
ControlError:
    MsgBox Err.Description, vbInformation + vbCritical
End Sub

Public Sub Guarda_DetalleLinea02()
On Error GoTo Mio
    Dim i As Integer, Fila As Integer
       Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Del_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), IIf(FrmProcesos.Linea2PgHoja.Tab = 0, 1, 2))
       If FrmProcesos.Linea2PgHoja.Tab = 0 Then
            Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Del_CabProcesoPF", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
            With FrmProcesos.Linea2Page1Detalle
                If .Rows > 1 Then
                     For i = 1 To .Rows - 1
                         Fila = i
                         If .TextMatrix(Fila, 1) <> "" Then
                            Call Guarda_DetalleGeneral(Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "Cproc", Format(.TextMatrix(Fila, 0), "dd/mm/yyyy"), "", "", .TextMatrix(Fila, 2), .TextMatrix(Fila, 1), .TextMatrix(Fila, 3), .TextMatrix(Fila, 4), "", .TextMatrix(Fila, 7), "", "", .TextMatrix(Fila, 8), 0, "", "", "", "", "", "", .TextMatrix(Fila, 6), FrmProcesos.Linea2Page1_Producto, FrmProcesos.Linea2Page1_MedidaCorte, "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", IIf(FrmProcesos.Linea2PgHoja.Tab = 0, 1, 2), .TextMatrix(Fila, 5))
                         End If
                     Next i
                End If
            End With
            With FrmProcesos.Linea2Page1DetFinal
                If .Rows > 1 Then
                   For i = 1 To .Rows - 1
                       Fila = i
                       Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Ins_CabProcesoPF", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "", Trim$(.TextMatrix(Fila, 0)), Trim$(.TextMatrix(Fila, 1)), Trim$(.TextMatrix(Fila, 2)), Trim$(.TextMatrix(Fila, 3)), Trim$(.TextMatrix(Fila, 4)), "", "", "", Fila)
                    Next i
                End If
            End With
       Else
            With FrmProcesos.Linea2Page2Detalle
             If .Rows > 1 Then
                 For i = 1 To .Rows - 1
                     .Row = i
                     Fila = .Row
                     If .TextMatrix(Fila, 0) <> "" Then
                            Call Guarda_DetalleGeneral(Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "Cproc", Format(.TextMatrix(Fila, 0), "dd/mm/yyyy"), .TextMatrix(Fila, 1), "", .TextMatrix(Fila, 2), "", "", "", "", "", "", "", "", 0, "", "", "", "", .TextMatrix(Fila, 10), "", "", FrmProcesos.Linea2Page1_Producto, FrmProcesos.Linea2Page1_MedidaCorte, .TextMatrix(Fila, 3), .TextMatrix(Fila, 4), .TextMatrix(Fila, 5), .TextMatrix(Fila, 6), .TextMatrix(Fila, 6), .TextMatrix(Fila, 8), .TextMatrix(Fila, 9), "", "", "", "", "", "", "", "", "", "", "", "", IIf(FrmProcesos.Linea2PgHoja.Tab = 0, 1, 2), "")
                     End If
                 Next i
             End If
            End With
       End If
       Exit Sub
Mio:
    MsgBox Err.Description, vbInformation + vbCritical
End Sub

Public Sub CargarDatos_Linea3()
On Error GoTo ControlError
    Dim Rs_Datos As New ADODB.Recordset
    Dim i As Integer
    Call PunteroRelojDeArena
    Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_CabProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
    If Rs_Datos.RecordCount > 0 Then
        Rs_Datos.MoveFirst
        With FrmProcesos
             'Datos de Hoja # 1
            .Linea3Page1_Orden = Trim$(Rs("In50Orden"))
            .Linea3Page1_Producto = Trim$(Rs("In50Producto"))
            .Linea3Page1_Color = Trim$(Rs("In50Color"))
            .Linea3Page1_MUtil = Trim$(Rs("In50Unim"))
            .Linea3Page1_MCorte = Trim$(Rs("In50MCorte"))
            .Linea3Page1_CodProvee = Trim$(Rs("In50CodPro"))
            .Linea3Page1_Grama = Trim$(Rs("In50GramMat"))
            
            'Datos de Hoja # 2
            .Linea3Page2_Cantidad = Trim$(Rs("In50Cant"))
            .Linea3Page2_Medida = Trim$(Rs("In50Unim"))
            .Linea3Page2_Color = Trim$(Rs("In50Color"))
            .Linea3Page2_Especi = Trim$(Rs("In50EspeciTec"))
            .Linea3Page2_Materiales = Trim$(Rs("In50Material"))
            .Linea3Page2_Orden = Trim$(Rs("In50Orden"))
            .Linea3Page2_Mermas = Trim$(Rs("In50Merma"))
            
            'Detalle de Hoja # 1 Control de Proceso
            Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "1")
            If Rs_Datos.RecordCount > 0 Then
               Rs_Datos.MoveFirst
               .Linea3Page1_Detalle.Rows = 2
               For i = 1 To Rs_Datos.RecordCount
                    With .Linea3Page1_Detalle
                        .TextMatrix(i, 0) = Trim$(Rs_Datos("In52Fecha"))
                        .TextMatrix(i, 1) = Trim$(Rs_Datos("In52Maqui"))
                        .TextMatrix(i, 2) = Trim$(Rs_Datos("In52Operario"))
                        .TextMatrix(i, 3) = Trim$(Rs_Datos("In52Hora"))
                        .TextMatrix(i, 4) = Trim$(Rs_Datos("In52Ancho"))
                        .TextMatrix(i, 5) = Trim$(Rs_Datos("In52Largo"))
                        .TextMatrix(i, 6) = Trim$(Rs_Datos("In52Alto"))
                        .TextMatrix(i, 7) = Trim$(Rs_Datos("In52PuntadaHilo"))
                        .TextMatrix(i, 8) = Trim$(Rs_Datos("In52TencHilo"))
                        .TextMatrix(i, 9) = Trim$(Rs_Datos("In52EspesorHilo"))
                        .TextMatrix(i, 10) = Trim$(Rs_Datos("In52CondicinesCorte"))
                        .TextMatrix(i, 11) = Trim$(Rs_Datos("In52RestCostura"))
                        .TextMatrix(i, 12) = Trim$(Rs_Datos("In52VB"))
                        Rs_Datos.MoveNext
                        .Rows = .Rows + 1
                    End With
                Next i
                .Linea3Page1_Detalle.Rows = .Linea3Page1_Detalle.Rows - 1
            End If
            
            'Hoja #1 Control de Producto Final
            Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_CabProcesoPF", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
            If Rs_Datos.RecordCount > 0 Then
               Rs_Datos.MoveFirst
               .Linea3Page1_DetFinal.Rows = 2
               For i = 1 To Rs_Datos.RecordCount
                    With .Linea3Page1_DetFinal
                        .TextMatrix(i, 0) = Trim$(Rs_Datos("In51Parciales"))
                        .TextMatrix(i, 1) = Trim$(Rs_Datos("In51Columna1"))
                        .TextMatrix(i, 2) = Trim$(Rs_Datos("In51Columna2"))
                        .TextMatrix(i, 3) = Trim$(Rs_Datos("In51Columna3"))
                        .TextMatrix(i, 4) = Trim$(Rs_Datos("In51Total"))
                        Rs_Datos.MoveNext
                        .Rows = .Rows + 1
                    End With
                Next i
                .Linea3Page1_DetFinal.Rows = .Linea3Page1_DetFinal.Rows - 1
            End If
            
            'Detalle de Hoja # 2
            Set Rs_Datos = CLS_COMANDO.Ejec_Comando_1("Spu_Inv_Trae_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "2")
            If Rs_Datos.RecordCount > 0 Then
               Rs_Datos.MoveFirst
               .Linea3Page2_Detalle.Rows = 2
               For i = 1 To Rs_Datos.RecordCount
                    With .Linea3Page2_Detalle
                        .TextMatrix(i, 0) = Trim$(Rs_Datos("In52Fecha"))
                        .TextMatrix(i, 1) = Trim$(Rs_Datos("In52NroRollo"))
                        .TextMatrix(i, 2) = Trim$(Rs_Datos("In52Operario"))
                        .TextMatrix(i, 3) = Trim$(Rs_Datos("In52Cortes"))
                        .TextMatrix(i, 4) = Trim$(Rs_Datos("In52MarcMantas"))
                        .TextMatrix(i, 5) = Trim$(Rs_Datos("In52Confeccion"))
                        .TextMatrix(i, 6) = Trim$(Rs_Datos("In52ProducTerm"))
                        Rs_Datos.MoveNext
                        .Rows = .Rows + 1
                    End With
                Next i
                .Linea3Page2_Detalle.Rows = .Linea3Page2_Detalle.Rows - 1
            End If
        End With
    Else
        With FabcProduccion
            'Hoja de Proceso
            FrmProcesos.Linea3Page1_Orden = Trim$(.panNoDocumento)
            FrmProcesos.Linea3Page1_Color = Trim$(.TxtColor)
            FrmProcesos.Linea3Page1_CodProvee = ""
            FrmProcesos.Linea3Page1_Producto = Trim$(FrmProcesos.LblHCProducto)
            FrmProcesos.Linea3Page1_MUtil = Trim$(FrmProcesos.LblHCMedida)
            FrmProcesos.Linea3Page2_Cantidad = Format(FrmProcesos.LblHCCantidad, "##.#0.00")
            FrmProcesos.Linea3Page2_Medida = Trim$(FrmProcesos.LblHCMedida)
            FrmProcesos.Linea3Page2_Color = Trim$(.TxtColor)
            FrmProcesos.Linea3Page2_Especi = ""
            FrmProcesos.Linea3Page2_Materiales = ""
            FrmProcesos.Linea3Page2_Mermas = ""
        End With
    End If
    Call PunteroNormal
    Exit Sub
ControlError:
    MsgBox Err.Description, vbInformation + vbCritical
End Sub

Public Sub Guarda_DetalleLinea03()
On Error GoTo Mio
    Dim i As Integer, Fila As Integer
       Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Del_DetProceso", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), IIf(FrmProcesos.Linea3PgHoja.Tab = 0, 1, 2))
       If FrmProcesos.Linea3PgHoja.Tab = 0 Then
            Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Del_CabProcesoPF", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL))
            With FrmProcesos.Linea3Page1_Detalle
                If .Rows > 1 Then
                     For i = 1 To .Rows - 1
                         Fila = i
                         If .TextMatrix(Fila, 1) <> "" Then
                            Call Guarda_DetalleGeneral(Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "Cproc", Format(.TextMatrix(Fila, 0), "dd/mm/yyyy"), "", .TextMatrix(Fila, 1), .TextMatrix(Fila, 2), .TextMatrix(Fila, 3), .TextMatrix(Fila, 4), .TextMatrix(Fila, 5), "", "", "", "", "", 0, "", "", "", "", "", "", "", FrmProcesos.Linea3Page1_Producto, FrmProcesos.Linea3Page1_MUtil, "", "", "", "", "", "", "", .TextMatrix(Fila, 7), .TextMatrix(Fila, 8), .TextMatrix(Fila, 9), .TextMatrix(Fila, 10), .TextMatrix(Fila, 11), "", "", "", "", "", "", .TextMatrix(Fila, 12), IIf(FrmProcesos.Linea3PgHoja.Tab = 0, 1, 2), .TextMatrix(Fila, 6))
                         End If
                     Next i
                End If
            End With
            With FrmProcesos.Linea3Page1_DetFinal
                If .Rows > 1 Then
                   For i = 1 To .Rows - 1
                       Fila = i
                       Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Ins_CabProcesoPF", gbCodEmpresa$, gbAno$, gbMes$, Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "", Trim$(.TextMatrix(Fila, 0)), Trim$(.TextMatrix(Fila, 1)), Trim$(.TextMatrix(Fila, 2)), Trim$(.TextMatrix(Fila, 3)), Trim$(.TextMatrix(Fila, 4)), "", "", "", Fila)
                    Next i
                End If
            End With
       Else
            With FrmProcesos.Linea3Page2_Detalle
             If .Rows > 1 Then
                 For i = 1 To .Rows - 1
                     .Row = i
                     Fila = .Row
                     If .TextMatrix(Fila, 0) <> "" Then
                            Call Guarda_DetalleGeneral(Trim$(FabcProduccion.panNoDocumento), Trim$(FabcProduccion.LblTipoL), "Cproc", Format(.TextMatrix(Fila, 0), "dd/mm/yyyy"), .TextMatrix(Fila, 1), "", .TextMatrix(Fila, 2), "", "", "", "", "", "", "", "", 0, "", "", "", "", "", "", "", FrmProcesos.Linea2Page1_Producto, FrmProcesos.Linea2Page1_MedidaCorte, .TextMatrix(Fila, 3), "", "", "", "", "", .TextMatrix(Fila, 6), "", "", "", "", "", .TextMatrix(Fila, 4), .TextMatrix(Fila, 5), "", "", "", "", "", IIf(FrmProcesos.Linea3PgHoja.Tab = 0, 1, 2), "")
                     End If
                 Next i
             End If
            End With
       End If
       Exit Sub
Mio:
    MsgBox Err.Description, vbInformation + vbCritical
End Sub

Public Sub Guarda_DetalleGeneral(xcIn52Orden As String, xcIn52TLinea As String, xcIn52ConPro As String, xcIn52Fecha As String, xcIn52nroRollo As String, xcIn52Maqui As String, xcIn52Operario As String, xcIn52Hora As String, xcIn52Ancho As String, xcIn52Largo As String, xcIn52Espesor As String, xcIn52Velocidad As String, xcIn52TemSup As String, xcIn52TemInf As String, xcIn52RestSello As String, xcIn52PesoxRollo As String, xcIn52CorteSello As String, xcIn52TiemxRolloIni As String, xcIn52TiemxRolloFin As String, xcIn52Total As String, xcIn52Merma As String, xcIn52Observaciones As String, xcIn52Temperatura As String, xcIn52Producto As String, xcIn52Medida As String, xcIn52Cortes As String, xcIn52Borde As String, xcIn52Cuerpo As String, xcIn52MantasAcab As String, xcIn52Ojalillo As String, xcxcIn52Soguilla As String, xcIn52ProducTerm As String, xcIn52PuntadaHilo As String, _
                                 xcIn52TencHilo As String, xcIn52EspesorHilo As String, xcIn52CondicinesCorte As String, xcIn52RestCostura As String, xcIn52MarcMantas As String, xcIn52Confeccion As String, xcIn52AsaTapa As String, xcIn52Cierre As String, xcIn52ArmadoCuerpo As String, xcIn52Acabados As String, xcIn52VB As String, xcIn52Hoja As Integer, xcIn52Alto As String)
On Error GoTo Mio
  Call CLS_COMANDO.Ejec_Comando_2("Spu_Inv_Ins_DetProceso", gbCodEmpresa, gbAno, gbMes, xcIn52Orden, xcIn52TLinea, xcIn52ConPro, xcIn52Fecha, xcIn52nroRollo, xcIn52Maqui, xcIn52Operario, xcIn52Hora, xcIn52Ancho, xcIn52Largo, xcIn52Espesor, xcIn52Velocidad, xcIn52TemSup, xcIn52TemInf, xcIn52RestSello, xcIn52PesoxRollo, xcIn52CorteSello, xcIn52TiemxRolloIni, xcIn52TiemxRolloFin, xcIn52Total, xcIn52Merma, xcIn52Observaciones, xcIn52Temperatura, xcIn52Producto, xcIn52Medida, xcIn52Cortes, xcIn52Borde, xcIn52Cuerpo, xcIn52MantasAcab, xcIn52Ojalillo, xcxcIn52Soguilla, xcIn52ProducTerm, xcIn52PuntadaHilo, xcIn52TencHilo, xcIn52EspesorHilo, xcIn52CondicinesCorte, xcIn52RestCostura, xcIn52MarcMantas, xcIn52Confeccion, xcIn52AsaTapa, xcIn52Cierre, xcIn52ArmadoCuerpo, xcIn52Acabados, xcIn52VB, xcIn52Hoja, xcIn52Alto)
  Exit Sub
Mio:
    MsgBox Err.Description, vbInformation + vbCritical
End Sub

Public Sub TraerInsumos(ctArticulo)
    Dim Rs As New ADODB.Recordset, Fila As Integer
    Set Rs = CLS_COMANDO.Ejec_Comando_1("sp_Inv_Trae_Composicion_Kit", gbCodEmpresa$, gbAno, Trim$(ctArticulo))
    If Rs.RecordCount > 0 Then
        Rs.MoveFirst
        With FrmProcesos.LblHCVdDetalle
        For i = 0 To Rs.RecordCount - 1
            Fila = .Rows - 1
            .TextMatrix(Fila, 0) = Trim(Rs("IN01DESLAR"))
            .TextMatrix(Fila, 1) = CStr(Rs("IN01CANT")) + " - " + Trim$(Rs("IN01UNIMED"))
            .TextMatrix(Fila, 2) = 0
            Rs.MoveNext
            If Not Rs.EOF Then .Rows = .Rows + 1
        Next
        End With
        Rs.Close
        Set Rs = Nothing
    End If
End Sub












